use "${pathdata_baseline}/BaselineExperiment.dta", clear

drop if condition_ == "noinfo"


gen lambda = 0
replace lambda = (beliefs_- 50) / (p_guess_ - 50)
gen decay = 1 - lambda

gen story = 1
replace story = 0 if statisticcondition == 1


winsor decay, p(.01) gen(decay_w)


	   
histogram decay_w,  width(0.25) fcolor(none) lcolor(black) xtitle("Decay parameter λ") title("Individual Belief Decay (Pooled for Stories and Statistics)") xlabel(-3 -2 -1 0 1 2 3 4) graphregion(color(white)) fraction
graph export "${pathout_baseline}/figures/figureA12a.pdf", replace

twoway (histogram decay_w if statisticcondition==0,  width(0.25) color(green) fraction) ///
       (histogram decay_w if statisticcondition==1,  width(0.25) fraction ///
	   fcolor(none) lcolor(black)), legend(order(1 "Story" 2 "Statistic" )) xtitle("Decay parameter λ") title("Individual Belief Decay for Stories and Statistics")  xlabel(-3 -2 -1 0 1 2 3 4) graphregion(color(white)) ///
	   
	   graph export "${pathout_baseline}/figures/figureA12b.pdf", replace




	
